home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / change-order next >
Text File  |  1997-02-06  |  724b  |  20 lines
  1. change-order random-seed symbol-pattern
  2.  
  3. Two symbols in a pattern may have their order changed by swapping their individual locations in the pattern by means of a random process. This randomization may be controlled by a random-seed.
  4.  
  5. (change-order 0.13 '(a b c d e f g h))
  6. --> (a b c d g f e h)
  7.  
  8. Use this function with gen-evolve and gen-consecutive:
  9.  
  10. (gen-evolve 3 '(change-order nil x) 
  11.               '(a b c d e f g) :list 0.13)
  12. -->((a b c d e f g) (a b c f e d g) (a b c f e g d) 
  13. --> (b a c f e g d))
  14.  
  15. (gen-consecutive 3 '(change-order nil x) 
  16.                    '(a b c d e f g) 0.13)
  17. --> ((a b c d e f g) (a b c f e d g) (a b c d e g f) 
  18. --> (b a c d e f g))
  19.  
  20. Note that the random seed is not set in these examples.